#!/usr/bin/perl -w

if ( $ARGV[0] eq '-s' ) {

symlink "$ARGV[2]", "$ARGV[1]";

} else {
link "$ARGV[1]", "$ARGV[0]" or die "cant find source $! \n";
} 

